REM Me followers.bas 2015-11-30 SmallBASIC 0.12.1 [B+=MGA]
nfollowers=100
Dim xfollower(nfollowers),yfollower(nfollowers)
for i=0 to nfollowers
  xfollower(i)=xmax/2:yfollower(i)=ymax/2
next
B="Me"
thB=txth(B)*1.5
twB=txtw(B)/2
color 11,0
while 1
  cls
  pen on
  mx=pen(4):my=pen(5)
  pen off
  delay 30
  at mx-twB,my-thB:?B
  for i=nfollowers-1 to 0 step-1
    circle xfollower(i),yfollower(i),i,3,((i mod 8)+7)
    'rect xfollower(i),yfollower(i) step 5,i+5,((i mod 8)+7)
    xfollower(i+1)=xfollower(i)
    yfollower(i+1)=yfollower(i)
  next
  xfollower(0)=mx
  yfollower(0)=my
  showpage
  delay 10
wend